(vc-revert-buffer1): Don't assume that compilation-error-list

is a list; it might be t.

diff --git a/lisp/vc.el b/lisp/vc.el
index 2b7df01e99aa1f2b5e18dfb5baa0968d35f047f3..7f17c3cb0073d89ad5520e9571f6340283752cfe 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -289,7 +289,7 @@ the master name of FILE; this is appended to an optional list of FLAGS."
                                                   compilation-old-error-list
                                                   compilation-error-list))
                                          (buffer-error-marked-p nil))
-                                     (while (and errors
+                                     (while (and (consp errors)
                                                  (not buffer-error-marked-p))
                                        (and (markerp (cdr (car errors)))
                                             (eq buffer